Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/rcode/resistor.frm

Visual Basic Form | 1995-05-08 | 5.2 KB | 248 lines

VERSION 2.00
Begin Form Form1
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Resistor Color Codes"
   ClientHeight    =   1725
   ClientLeft      =   1770
   ClientTop       =   2865
   ClientWidth     =   4485
   Height          =   2415
   Icon            =   RESISTOR.FRX:0000
   Left            =   1710
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   1725
   ScaleWidth      =   4485
   Top             =   2235
   Width           =   4605
   Begin PictureBox answer
      AutoRedraw      =   -1  'True
      Height          =   495
      Left            =   2640
      ScaleHeight     =   465
      ScaleWidth      =   1665
      TabIndex        =   7
      Top             =   1200
      Width           =   1695
   End
   Begin ListBox band2
      Height          =   615
      Left            =   1080
      TabIndex        =   5
      Top             =   960
      Width           =   1215
   End
   Begin ListBox band3
      Height          =   615
      Left            =   2760
      TabIndex        =   6
      Top             =   240
      Width           =   1215
   End
   Begin ListBox band1
      Height          =   615
      Left            =   0
      TabIndex        =   4
      Top             =   240
      Width           =   1215
   End
   Begin PictureBox Picture1
      AutoRedraw      =   -1  'True
      BorderStyle     =   0  'None
      Height          =   495
      Left            =   1800
      Picture         =   RESISTOR.FRX:0302
      ScaleHeight     =   495
      ScaleWidth      =   495
      TabIndex        =   0
      Top             =   0
      Width           =   495
   End
   Begin Label Label1
      Caption         =   "3rd"
      Height          =   255
      Left            =   2280
      TabIndex        =   1
      Top             =   480
      Width           =   375
   End
   Begin Label Label2
      Caption         =   "2nd"
      Height          =   255
      Left            =   1800
      TabIndex        =   2
      Top             =   480
      Width           =   375
   End
   Begin Label Label3
      Caption         =   "1st"
      Height          =   255
      Left            =   1440
      TabIndex        =   3
      Top             =   240
      Width           =   375
   End
   Begin Menu QUIT
      Caption         =   "Quit"
   End
   Begin Menu ABOUT
      Caption         =   "About"
   End
Sub ABOUT_Click ()
 FORM2.Show
End Sub
Sub band1_Click ()
 Select Case band1.text
  Case "BLACK"
   aband1 = 0
   ShowTotal
  Case "BROWN"
   aband1 = 10
   ShowTotal
  Case "RED"
   aband1 = 20
   ShowTotal
  Case "ORANGE"
   aband2 = 30
   ShowTotal
  Case "YELLOW"
   aband2 = 40
   ShowTotal
  Case "GREEN"
   aband2 = 50
   ShowTotal
  Case "BLUE"
   aband2 = 60
   ShowTotal
  Case "VIOLET"
   aband2 = 70
   ShowTotal
  Case "GREY"
   aband2 = 80
   ShowTotal
  Case "WHITE"
   aband2 = 90
   ShowTotal
 End Select
End Sub
Sub band2_Click ()
 Select Case band2.text
  Case "BLACK"
   aband2 = 0
   ShowTotal
  Case "BROWN"
   aband2 = 1
   ShowTotal
  Case "RED"
   aband2 = 2
   ShowTotal
  Case "ORANGE"
   aband2 = 3
   ShowTotal
  Case "YELLOW"
   aband2 = 4
   ShowTotal
  Case "GREEN"
   aband2 = 5
   ShowTotal
  Case "BLUE"
   aband2 = 6
   ShowTotal
  Case "VIOLET"
   aband2 = 7
   ShowTotal
  Case "GREY"
   aband2 = 8
   ShowTotal
  Case "WHITE"
   aband2 = 9
   ShowTotal
 End Select
End Sub
Sub band3_Click ()
 Select Case band3.text
  Case "BLACK"
   aband3 = 10 ^ 0
   ShowTotal
  Case "BROWN"
   aband3 = 10 ^ 1
   ShowTotal
  Case "RED"
   aband3 = 10 ^ 2
   ShowTotal
  Case "ORANGE"
   aband3 = 10 ^ 3
   ShowTotal
  Case "YELLOW"
   aband3 = 10 ^ 4
   ShowTotal
  Case "GREEN"
   aband3 = 10 ^ 5
   ShowTotal
  Case "VIOLET"
   aband3 = 10 ^ 6
   ShowTotal
  Case "GRAY"
   aband3 = 10 ^ 7
   ShowTotal
  Case "WHITE"
   aband3 = 10 ^ 8
   ShowTotal
  Case "SILVER"
   aband3 = .01
   ShowTotal
  Case "GOLD"
   aband3 = .1
   ShowTotal
 End Select
End Sub
Sub Form_Load ()
 InitData
 total = 0
 aband1 = 0
 aband2 = 0
 aband3 = 1
End Sub
Sub InitData ()
band1.AddItem "BLACK"
band1.AddItem "BROWN"
band1.AddItem "RED"
band1.AddItem "ORANGE"
band1.AddItem "YELLOW"
band1.AddItem "GREEN"
band1.AddItem "BLUE"
band1.AddItem "VIOLET"
band1.AddItem "GRAY"
band1.AddItem "WHITE"
band3.AddItem "BLACK"
band3.AddItem "BROWN"
band3.AddItem "RED"
band3.AddItem "ORANGE"
band3.AddItem "YELLOW"
band3.AddItem "GREEN"
band3.AddItem "BLUE"
band3.AddItem "VIOLET"
band3.AddItem "GRAY"
band3.AddItem "WHITE"
band3.AddItem "SILVER"
band3.AddItem "GOLD"
band2.AddItem "BLACK"
band2.AddItem "BROWN"
band2.AddItem "RED"
band2.AddItem "ORANGE"
band2.AddItem "YELLOW"
band2.AddItem "GREEN"
band2.AddItem "BLUE"
band2.AddItem "VIOLET"
band2.AddItem "GRAY"
band2.AddItem "WHITE"
End Sub
Sub QUIT_Click ()
End Sub
Sub ShowTotal ()
total = (aband1 + aband2) * aband3
 answer.Cls
 answer.Print Format$(total, "#,###,###,###.##")
End Sub